home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
edit
/
thedjg20.zip
/
join.the
< prev
next >
Wrap
Text File
|
1994-11-16
|
399b
|
15 lines
/* This macro executes an "append" join rather than an "overwrite" join */
If modifiable() & \incommand() & \inprefix() Then
Do
'extract /margin/cursor'
save_marg = margins.1 margins.2 margins.3
'sos endchar'
'join'
'set margins' cursor.4 cursor.4 '+0'
'sos marginl'
'set margins' save_marg
End
Else
'emsg Error 0038: invalid cursor position'
Return